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5 FACILITY: LANGUAGE INDEPENDENT SUPPORT 
; : "ABSTRACT: 


This module contains the routine that converts packed numbers 
to g floating. 


; VERSION: 1 
Z : ; HISTORY: 
4 : AUTHOR: 
tg i Pamela Levesque, 18-Jan-1982 
tb: ; MODIFIED BY: 
6 
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4 -SBTTL HISTORY ; Detailed Current Edit History 


; Edit History for Version 1 of OTSCVTPG 


4 4 > 12001 = Original. PLL 18-Jan-1982 


eager. rt Pa bod to G floating “s i a i eb 9 90:46:08 es Macro yOs-oe Page () 
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f Hs -SBTTL DECLARATIONS 
t } INCLUDE FILES: 
10 : SDSCDEF 
64; 
10 65 : EXTERNAL SYMBOLS: 
t -DSABL GBL ; Prevent undeclared symbols from being 
+" ; automatically global 
‘ f -EXTRN OTSSCVT_T_G ; 0, E, F, G Conversion routine 
‘ 7 
75 ; 
18 
78 ; PSECT DECLARATIONS: 
7 -PSECT _OTSSCODE PIC, SHR, LONG, EXE, NOWRT,- 


USR, CON, REL, LCL, RD 


> EQUATED SYMBOLS: 
: NONE 


9 
1 
5 
33 
; 
8 
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: OWN STORAGE: 
: NONE 
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{FUNCTIONAL DESCRIPTION: 
Converts packed numbers to g floating. 
CALLING SEQUENCE: 
JSB OTSSCVTPG_RO (scale.rl.v, srclen.rl.v, src.rp.r, dst.wg.r) 
Arguments are passed in R6, R7, RB and RI. 
INPUT PARAMETERS: 
SCALE.rl.v The power of ten by which the internal 
poteipt ied torscste "the seen ai the" 
SRCLEN.rL.v The number of aigits in the souree’ 
SRC.rp.r The number to be converted 
IMPLICIT INPUTS: 
ALL of the trap bits in the PSL are assumed off. 
OUTPUT PARAMETERS: 
DST.wg.r The place to store the converted number 
IMPLICIT OUTPUTS: 
NONE 
FUNCTION VALUE: 
1 = SUCCESS, 0 = FAILURE 
SIDE EFFECTS: 


Destroys registers RO through R9. 


OTSSCVTPG_R9:: 
S0BL2 #40,SP 3; Space for temp string and result 
CVTPS -R7, (RB) #31, 8(SP) ; Make a separate sign string 


; Make a descriptor for the leading separate string. 


3; Address = temp string 

ASS_S,=-(SP 3; Class = static 

YPE_T,-(SP ; Data type_= ASCII text 
; Length = 32 bytes 
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1 8 
7E cE 1 MNEGL R6,-(SP) 3; Scale factor 
88 SE Boy USHL # : Dig ts In. fraction 
10 A F 1 PUSHAB ! (SP) ; Address of result area 
OC A F 1 PUSHAB (SP) 3; Address of descriptor 
00000000 ' GF 9 4 cats 4 GeOTsscvT_T_6 ; Call the routine 
+5 0 € BL RO,2$ 3; Failure, m ayer be overflow 
69 AF 50F MO 8(§P), (RO) : Store resu 
20 g i) #1,R 3; Indicate success 
E 0 f 1$ ADDL2 #48,SP ; Delete stack temps 
RSB 3; Return 


: Come here on overflow to store the reserved operand. 
69 01 OF 79 2s: ASHQ = #15, #1, (RO) ; Store reserved operand 
0 04 CLRL Re ; Indicate failure 
F4 #11 = «00 BRB 1 3; Delete stack temps and return 
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Symbol table "s g-seF =188¢ 90: ¢: 98 YTORTL. SRCJ oy ebreS. MAR; 1 — 


492 14 CLASS -$ ~ 1 
OTSSCUTPG. RO. ‘ SeeHEER, RG 92 
OTSscvl Rie eeeenreee xX 
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! } Psect Synopsis ; 


PSECT name Allocation PSECT No. Attributes 


6° 8 ( 8.3 1 ie CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
( LCL NOSHR EXE R&D WRT NOVEC BYTE 
00005D ¢ 61:3 PIC SR CON LCL SHR EXE RD NOWRT NOVEC LONG 
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+ 
; Performance indicators ; 


SABSS 
-OTSSCODE 


coon F table output 

Psect synopsis output 

Cross-reference output :00: 
Assembler run totals 32 :00: 


ihe working set Limit was 1050 pages 
8057 bytes (16 pages) of virtua memory were used to buffer the intermediate co 
There were 10 pages of symbol table space gnc yocet d to hold 135 non-local and 3 locat symbols. 
167 source Lines were read in Pass 1, produc ah B. ect records in Pass 
8 pages of virtual memory were used to define 7 macros. 


Phase Page faults CPU Time Elapsed Time 
Conmand process! 139 0: f 8.9 3: 
omma rocessin :00: :03. 

4 ° 138 6; 701.14 : 
Syabol table sort F 2s 
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oooo 
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Macro library name Macros defined 
“S255SDUAZB:(SYSLIBISTARLET.MLB:20 (tS 
190 GETS were required to define 4 macros. 

There were no errors, warnings or information messages. 
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